home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / extras / programm / mcode_01 / source / general / setpath.s < prev   
Encoding:
Text File  |  1995-04-27  |  1.0 KB  |  34 lines
  1. * Program     : Sets the current directory
  2. * Author    : Stephen McNabb
  3. * Creation date : 15th February 1995
  4. * Last update    : 15th February 1995
  5. * Parameters    : Address of directory name
  6. * Output    : A negative value will be returned in d0 if
  7. *          the directory can not be changed
  8.  
  9. start:    jsr    cls        /clear the screen
  10.     move.l    #direct,-(sp)    /move address of directory name to stack
  11.     move.w    #$3B,-(sp)    /use Dsetpath() function
  12.     trap    #1        /use gemdos
  13.     addq.l    #6,sp        /tidy up stack
  14.  
  15.     cmpi.b    #0,d0        /check to see if there was an error
  16.     blt    err        /if there is display an error message
  17.     
  18.     move.l    #success,d0    /else move address of success message into d0
  19.     bra    skip        /and skip the next line
  20. err:    move.l    #error,d0    /move address of error message into d0
  21. skip:    jsr    ptext        /display message on screen
  22.     
  23. end:    bra    exit        /exit from program
  24.  
  25.     include    "\SOURCE\FUNCTION.S"    /include standard functions
  26.  
  27.     
  28. *** Program Data ***
  29.  
  30. direct:    dc.b    '\TEST\',0
  31. success:dc.b    'Current directory changed',0
  32. error:    dc.b    'Error!',0
  33.  
  34. *** End of file ***